home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Graphics / Graphic Utilities / Art Browser / Art Browser.rsrc / WSTR_-16000 < prev   
Encoding:
Text File  |  1986-12-29  |  301 b   |  10 lines
  1. +2 dict begin
  2. /d exch def
  3. /s exch def
  4. d 0 get d 1 get translate
  5. d 2 get d 0 get sub s 2 get s 0 get sub div
  6. d 3 get d 1 get sub s 3 get s 1 get sub div
  7. 2 copy abs exch abs exch gt{exch 1 index abs exch 0 lt{neg}if exch}{1 index abs exch 0 lt{neg}if}ifelse scale
  8. s 0 get neg s 1 get neg translate
  9. end
  10.